10 SYS 32768
12 .OPT P,M,OO
14 ;
20 ;-----------------------------------
200 OFFMAC .MAC A,B,C
202 LDA A
204 STA $C1
206 LDA B
208 STA $C2
210 LDY C
212 JSR OFFSET
214 .MEN
218 ;----------------------------------
300 MATFUNK .MAC SPRZL,ZAHL
302 LDX #ZAHL
304 LOOP INC $7A
306 BNE .LESS1
308 INC $7B
310 LESS1 DEX
312 BNE .LOOP
340 JSR SPRZL
342 JMP $A7AE
344 .MEN
350 ;----------------------------------
352 TEXT .MAC TEXTN
354 LDA #<TEXTN
355 STA $22
356 LDY #>TEXTN
357 STY $23
359 JSR STROUT
360 .MEN
362 ;----------------------------------
370 CURSOR .MAC ZEILE,SPALTE
372 LDX #ZEILE
374 LDY #SPALTE
376 STX $D6
378 STY $D3
380 JSR SETCRS
382 .MEN
384 ;----------------------------------
804 ;
806 CALC   = $C975 ; CALC.-BASIS
808 LCALC  = <CALC
810 HCALC  = >CALC
812 LC8    = <CALC+12
814 HC8    = >CALC+12
816 LC13   = <CALC+17
818 HC13   = >CALC+17
820 LC18   = <CALC+22
821 HC18   = >CALC+22
822 LC23   = <CALC+27
823 HC23   = >CALC+27
824 KOMMA  = $AEFD
825 STROUT = $AB1E
826 CHRGET = $0073
828 CHR(null)T = $0079
830 FACABS = $BC58
832 CMPFAC = $BC5B
834 MDIV   = $BB0F
836 INTMUL = $B34C
838 MEMFAC = $BBA2
840 FACMEM = $BBD7
842 PTRVAR = $B0E7
844 MSUB   = $B850
846 MADD   = $B867
848 MMULT  = $BA28
850 READY  = $A474
852 ARYGET = $B194
854 SCRTCH = $A644
856 CHROUT = $FFD2
858 SETCRS = $E56C
890 ;
892 *= $C000
894 ;
896 ;----------------------------------
900 LDA #$0B
902 STA $0308     ; I(null)NE LO
904 LDA #$C0
906 STA $0309     ; I(null)NE HI
907 JSR TITEL
908 RTS
910 ;
912 JSR CHRGET
914 CMP #$40      ; ASCII FUER @
916 BEQ NEUBEF    ; NEUER BEFEHL
918 JMP $A7E7     ; KEIN NEUER BEFEHL
920 NEUBEF JSR CHRGET
922 CMP #"A"
924 BNE FUNK2
926 'MATFUNK ADD,$03
928 FUNK2 CMP #"E"
930 BNE FUNK3
932 'MATFUNK EQU,$03
934 FUNK3 CMP #"M"
936 BNE FUNK4
938 'MATFUNK MUL,$03
940 FUNK4 CMP #"D"
942 BNE FUNK5
944 'MATFUNK DET,$03
946 FUNK5 CMP #"I"
948 BNE FUNK6
950 'MATFUNK INV,$03
952 FUNK6 CMP #"S"
954 BNE FUNK8
960 JSR CHRGET
962 CMP #"U"
964 BNE FUNK7
966 'MATFUNK SUB,$02
968 FUNK7 'MATFUNK SKP,$02
970 FUNK8 RTS
999 ;----------------------------------
1000 ; EQUIVALENZ (A)=(B)
1002 ; ******************
1004 EQU LDA #$08
1006 STA $FB
1008 JSR ARYFND
1010 EQUIV LDA #00
1012 STA $FC
1014 FL16 LDA #00
1016 STA $FB
1018 FL15 LDA CALC
1020 LDY CALC+1
1022 JSR MEMFAC
1024 LDX CALC+4
1026 LDY CALC+5
1028 JSR FACMEM
1030 JSR ELADD
1032 INC $FB
1034 LDA $FB
1036 CMP CALC+3
1038 BNE FL15
1040 INC $FC
1042 LDA $FC
1044 CMP CALC+2
1046 BNE FL16
1048 RTS
1050 ;---------------------------------
1100 ; ADDITION (A)+(B)=(C)
1102 ; ********************
1104 ADD LDA #$0C ; PARAMETERANZAHL
1106 STA $FB
1108 JSR ARYFND
1110 LDA #00
1112 STA $FC
1114 FL6 LDA #00
1116 STA $FB
1118 FL5 LDA CALC
1120 LDY CALC+1
1122 JSR MEMFAC
1124 LDA CALC+4
1126 LDY CALC+5
1128 JSR MADD
1130 LDX CALC+08
1132 LDY CALC+09
1134 JSR FACMEM
1136 JSR ELADD
1138 INC $FB
1140 LDA $FB
1142 CMP CALC+3
1144 BNE FL5
1146 INC $FC
1148 LDA $FC
1150 CMP CALC+2
1152 BNE FL6
1154 RTS
1156 ;---------------------------------
1500 ; SUBTRAKTION (A)-(B)=(C)
1502 ; ***********************
1504 SUB LDA #$0C
1506 STA $FB
1508 JSR ARYFND
1510 LDA #00
1512 STA $FC
1514 FL7 LDA #00
1516 STA $FB
1518 FL8 LDA CALC+4
1520 LDY CALC+5
1522 JSR MEMFAC
1524 LDA CALC
1526 LDY CALC+1
1528 JSR MSUB
1530 LDX CALC+08
1532 LDY CALC+09
1534 JSR FACMEM
1536 JSR ELADD
1538 INC $FB
1540 LDA $FB
1542 CMP CALC+3
1544 BNE FL8
1546 INC $FC
1548 LDA $FC
1550 CMP CALC+2
1552 BNE FL7
1554 RTS
1556 ;---------------------------------
2000 ; MULTIPLIKATION (A)*(B)=(C)
2002 ; **************************
2004 MUL LDA #$0C
2006 STA $FB
2008 JSR ARYFND
2010 LDA #00
2012 STA $8B         ; INDEX I=0
2014 MRK11 LDA #00
2016 STA $8C         ; INDEX J=0
2018 MRK8 LDA #00
2020 STA $8D         ; INDEX K=0
2022 LDA $8B
2024 STA $C1
2026 LDA $8C
2028 STA $C2
2030 LDY #$08
2032 JSR OFFSET
2034 STA $24
2036 STY $25
2038 LDA #00
2040 LDX #00
2042 STA ($24),X   ; C(I,J)=0 SETZEN
2044 MRK6 LDA $8B
2046 STA $C1
2048 LDA $8D
2050 STA $C2
2052 LDY #$00
2054 JSR OFFSET
2056 STA CALC+$0C
2058 STY CALC+$0D
2060 LDA $FE      ; ZEILEN DER A-MATRIX
2062 STA $8E
2064 LDA $8D
2066 STA $C1
2068 LDA $8C
2070 STA $C2
2072 LDY #$04
2074 JSR OFFSET
2076 JSR MEMFAC
2078 LDA CALC+$0C
2080 LDY CALC+$0D
2082 JSR MMULT
2084 LDA $24
2086 LDY $25
2088 JSR MADD
2090 LDX $24
2092 LDY $25
2094 JSR FACMEM
2096 LDA $FE      ; ZEILEN DER B-MATRIX
2098 CMP $8D
2100 BEQ MRK7
2102 INC $8D
2104 JMP MRK6     ; K-SCHLEIFE
2106 MRK7 LDA $FD ; SPALTEN DER B-MATRIX
2108 CMP $8C
2110 BEQ MRK9
2112 INC $8C
2114 JMP MRK8     ; J-SCHLEIFE
2116 MRK9 LDA $8E ; ZEILEN DER A-MATRIX
2118 CMP $8B
2120 BEQ MRK10
2122 INC $8B
2124 JMP MRK11
2126 MRK10 RTS
2128 ;---------------------------------
2200 ;SKALARPRODUKT (A)*K=(A)
2202 ;***********************
2204 SKP LDA #$04
2206 STA $FB
2208 JSR ARYFND
2210 JSR VARNAM1
2212 JSR PTRVAR   ; ZEIGER AUF KPRINT[\.M*SKPDT LDA #00
2222 STA $FC
2224 FL26 LDA #00
2226 STA $FB
2228 FL25 LDA CALC
2230 LDY CALC+1
2232 JSR MEMFAC
2234 LDA $47
2236 LDY $48
2238 JSR MMULT
2240 LDX CALC
2242 LDY CALC+1
2244 JSR FACMEM
2246 JSR ELADD
2248 INC $FB
2250 LDA $FB
2252 CMP CALC+3
2254 BNE FL25
2256 INC $FC
2258 LDA $FC
2260 CMP CALC+2
2262 BNE FL26
2264 RTS
2266 ;---------------------------------
2500 ;DETERMINANTE DET(A)=D
2502 ;*********************
2504 DET LDA #$00
2505 STA $C3
2506 LDA #$04
2508 STA $FB
2509 JSR ARYFND
2510 HPTDET LDX CALC+2
2511 DEX
2512 STX $A6
2513 DETERM LDA #00
2514 STA $8E      ; N1=0
2516 STA $8B      ; I=0
2518 SCH1 LDA $8B
2520 CMP $A6      ; VERGL.I=N
2522 BNE CND1A
2524 JMP CND1
2526 CND1A 'OFFMAC $8B,$8B,$C3
2528 JSR MEMFAC
2530 JSR FACABS   ; BETRAG IN FAC1
2532 LDX #LC8
2534 LDY #HC8
2536 JSR FACMEM ; A=ABS(A(I,I))
2538 LDY $8B
2540 STY $8F      ; Z1=I
2542 INY
2544 STY $8D      ; K=K+1
2546 SCH2 'OFFMAC $8D,$8B,$C3
2548 JSR MEMFAC
2550 LDA #LC8
2552 LDY #HC8
2554 JSR CMPFAC   ; ABS(A(K,J))<=A
2556 CMP $B9BC    ; VERGL. ACCU=1
2558 BEQ CND2A
2560 LDA $8D
2562 JMP CND2
2564 CND2A LDX #LC8
2566 LDY #HC8
2568 JSR FACMEM   ; A=ABS(A(K,I))
2570 LDA $8D
2572 STA $8F      ; Z1=K
2574 CND2 CMP $A6; VERGL. K=N
2576 BEQ SCH2E
2578 INC $8D      ; K=K+1
2580 JMP SCH2     ; K-SCHLEIFE
2582 SCH2E LDA $8F
2584 CMP $8B
2586 BNE CND1B
2588 JMP CND1
2590 CND1B LDA #00
2592 STA $8C
2594 SCH3 'OFFMAC $8B,$8C,$C3
2596 JSR MEMFAC
2598 LDX #LC13
2600 LDY #HC13
2602 STA $8C      ; J=0
2604 JSR FACMEM   ; B ABLEGEN
2606 'OFFMAC $8F,$8C,$C3
2608 STA $71
2610 STY $72
2612 JSR MEMFAC   ; A(Z1,J) IN FAC1
2614 'OFFMAC $8B,$8C,$C3
2616 TAX
2618 JSR FACMEM   ; A(I,J)=A(Z1,J)
2620 LDA #LC13
2622 LDY #HC13
2624 JSR MEMFAC   ; B NACH FAC1
2626 LDX $71
2628 LDY $72
2630 JSR FACMEM   ; A(Z1,J)=B
2632 LDA $8C
2634 CMP $A6
2636 BEQ SCH3E
2638 INC $8C
2640 JMP SCH3     ; J-SCHLEIFE
2642 SCH3E NOP    ; ENDE J-SCHLEIFE
2644 INC $8E      ; N1=N1+1
2646 CND1 LDA #00
2648 STA $8D      ; K=0
2650 SCH4 LDA $8D
2652 CMP $8B
2654 BNE CND3A    ; BEI K=I
2656 JMP CND3
2658 CND3A LDX #00
2660 NULL LDA #00
2662 STA $61,X
2664 INX
2666 CPX #$06     ; FAC1=0 SETZEN
2668 BNE NULL
2670 'OFFMAC $8B,$8B,$C3
2672 JSR CMPFAC   ;VERGL.FAC1(0)=A(I,I)
2674 CMP #00
2676 BNE CND3B
2678 JMP CND3
2680 CND3B 'OFFMAC $8B,$8B,$C3
2682 JSR MEMFAC   ; A(I,I) DIVISOR
2684 'OFFMAC $8D,$8B,$C3
2686 JSR MDIV     ; A(K,I)/A(I,I)
2688 LDX #LC18
2690 LDY #HC18
2692 JSR FACMEM
2694 LDA #00
2696 STA $8C      ; J=0
2698 SCH5 'OFFMAC $8B,$8C,$C3
2700 JSR MEMFAC
2702 LDA #LC18
2704 LDY #HC18
2706 JSR MMULT
2708 'OFFMAC $8D,$8C,$C3
2710 STA $71
2712 STY $72
2714 JSR MSUB
2716 LDX $71
2718 LDY $72
2720 JSR FACMEM   ; A(K,J)
2722 LDA $8C
2724 CMP $A6      ; VERGL. J=N
2726 BEQ SCH5E
2728 INC $8C
2730 JMP SCH5
2732 SCH5E NOP
2734 CND3 LDA $8D
2736 CMP $A6
2738 BEQ SCH4E
2740 INC $8D
2742 JMP SCH4     ; K-SCHLEIFE
2744 SCH4E LDA $8B
2746 CMP $A6
2748 BEQ SCH1E
2750 INC $8B
2752 JMP SCH1     ; I-SCHLEIFE
2754 SCH1E LDA #00
2756 STA $8B
2758 'OFFMAC $8B,$8B,$C3
2760 JSR MEMFAC
2762 LDX #LC8
2764 LDY #HC8
2766 JSR FACMEM   ; D=A(1,1)
2768 LDA #01
2770 STA $8B
2772 SCH6 'OFFMAC $8B,$8B,$C3
2774 JSR MEMFAC
2776 LDA #LC8
2778 LDY #HC8
2780 JSR MMULT    ; D*A(I,I)
2782 LDX #LC8
2784 LDY #HC8
2786 JSR FACMEM
2788 LDA $8B
2790 CMP $A6
2792 BEQ SCH6E
2794 INC $8B
2796 JMP SCH6
2798 SCH6E NOP
2799 ROR $8E
2800 BCC CND5
2802 LDA $66
2803 CMP #$80     ; BEREITS NEGATIV
2804 LDA #$01
2805 STA $66
2806 BCS CND5
2807 LDA #$FF
2808 STA $66
2809 CND5 LDA $C3
2810 CMP #$00
2811 BNE DETFIN
2812 JSR VARNAM1
2813 JSR PTRVAR   ; VARIABLE SUCH./ANL.
2814 LDX $47
2816 LDY $48
2818 JSR FACMEM
2820 DETFIN RTS
2822 ;---------------------------------
2900 ; INVERSE MATRIX INV(A)=B
2902 ; ***********************
2904 INV LDA #$0C
2908 STA $FB
2910 JSR ARYFND
2920 LDY #00
2922 LOOP1 LDA CALC,Y
2924 PHA
2926 INY
2928 CPY $FB
2930 BCC LOOP1
2932 BEQ LOOP1
2934 JSR EQUIV
2939 LDY #$0C
2940 LOOP2 PLA
2942 STA CALC,Y
2944 DEY
2948 BPL LOOP2
2950 LDA #$04
2952 STA $C3
2954 JSR HPTDET
2955 JSR PRUEF    ; UMKEHRBARKEIT PRFN.
2956 LDA #$BC     ; LO ADRESSE VON 1
2958 LDY #$B9     ; HI    "
2960 JSR MDIV
2962 LDX #LC23
2964 LDY #HC23
2966 JSR FACMEM
3011 LDX CALC[170]2
3012 DEX
3014 TXA
3016 STA $FD       ; N
3020 STA $8F
3024 DEC $8F       ; N[171]1
3028 LDA #00
3032 ZWG11 STA $8B ; INDEX I[178]0
3036 LDA #00
3040 ZWG9 STA $8C  ; INDEX J[178]0
3044 LDA #00
3048 ZWG6 STA $8D  ; INDEX K[178]0
3052 LDA #00
3056 ZWG4 STA $8E  ; INDEX L[178]0
3060 LDA #00
3064 STA $C3
3068 LDA $8D
3072 STA $C1
3076 CMP $8C       ; C[171]FLAG BEI [177][178]
3080 BCC ZWG1
3084 INC $C1       ; K[170](K[177][178]J)
3088 ZWG1 LDA $8E
3092 STA $C2
3096 CMP $8B
3100 BCC ZWG2
3104 INC $C2       ; L[170](L[177][178]I)
3108 ZWG2 'OFFMAC $C1,$C2,$C3
3112 JSR MEMFAC
3116 LDA $8D
3120 STA $C1
3124 LDA $8E
3128 STA $C2
3132 LDY #$08
3136 JSR OFFSET
3140 JSR FACMEM    ; B(K,L) ABLEGEN
3144 LDA $8E
3148 CMP $8F
3152 BEQ ZWG3
3156 INC $8E
3158 LDA $8E
3160 JMP ZWG4      ; L[171]SCHLE[139]E
3164 ZWG3 LDA $8D
3168 CMP $8F
3172 BEQ ZWG5
3176 INC $8D
3178 LDA $8D
3180 JMP ZWG6      ; K[171]SCHLE[139]E
3182 ZWG5 LDA #00
3183 CMP $8F
3184 BNE DET1      ; DET.INDEX [177]1
3188 JMP DET2
3190 DET1 LDY #00
3192 LOOPA LDA $8B,Y
3194 PHA
3196 INY
3198 CPY #$05
3200 BNE LOOPA
3212 LDA $FD
3214 PHA
3218 LDA $8F       ; DET.INDEX REDUZ.
3222 STA $A6
3226 LDA #$08
3230 STA $C3       ; OFFSET F.DETERMIN.
3234 JSR DETERM
3250 PLA           ; INDICEES ZURUECK
3252 STA $FD
3254 LDY #$04
3256 LOOPB PLA
3258 STA $8B,Y
3260 DEY
3262 BPL LOOPB
3284 DET2 CLC
3285 LDA $8B
3286 ADC $8C
3288 R[176]
3292 BCC ZWG7
3294 LDA $66
3295 CMP #$80      ; BEREITS NEGATIV,
3296 LDA #$01      ; DANN [185]ITIV
3297 LDA #$01
3298 STA $66
3299 BCS ZWG7
3300 LDA #$FF
3304 STA $66       ; FAC NEGATIV
3308 ZWG7 LDA $8B
3312 STA $C1
3316 LDA $8C
3320 STA $C2
3324 LDA #$04
3328 STA $C3
3332 'OFFMAC $C1,$C2,$C3
3336 JSR FACMEM
3340 LDA $8C
3344 CMP $FD
3348 BEQ ZWG8
3352 INC $8C
3354 LDA $8C
3356 JMP ZWG9
3360 ZWG8 LDA $8B
3364 CMP $FD
3368 BEQ ZWG10
3372 INC $8B
3374 LDA $8B
3376 JMP ZWG11
3380 ZWG10 NOP
3381 LDA #$0C
3382 STA $FB
3383 LDY #00
3384 LOOP3 LDA CALC,Y
3386 PHA
3388 INY
3390 CPY $FB
3392 BCC LOOP3
3394 BEQ LOOP3
3400 LDY #00
3402 LOOP6 LDA CALC[170]4,Y
3404 STA CALC,Y
3406 LDA CALC[170]8,Y
3408 STA CALC[170]4,Y
3410 INY
3412 CPY #$04
3414 BCC LOOP6
3420 JSR EQUIV
3424 LDY #$0C
3426 LOOP4 PLA
3428 STA CALC,Y
3430 DEY
3432 BPL LOOP4
3440 LDA #LC23     ; ZEIGER AUF 1[173]DET
3442 STA $47
3444 LDA #HC23
3446 STA $48
3450 LDY #00
3452 LOOP7 LDA CALC[170]8,Y
3454 STA CALC,Y
3456 INY
3458 CPY #$04
3460 BCC LOOP7
3468 JSR SKPDT
3470 RTS
3472 ;
3474 PRUEF LDA $61
3476 CMP #$0A
3478 BCS OKEY
3480 'TEXT TEXT1
3486 JMP [135]Y      ; [135]Y[171]MODUS
3488 OKEY RTS
3500 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5100 ; VARIAB[195]NAMEN LESEN
5102 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5104 VARNAM1 LDA #00
5106 STA $A5
5108 ;
5110 VARNAM2 JSR KOMMA
5112 JSR CHR[203]T    ; 1.ZEICHEN HO[195]
5114 STA $45       ; UND MERKEN
5116 JSR CHR[161]    ; 2.ZEICHEN HO[195]
5118 BEQ Z[128]     ; ZEI[195][128]E
5120 CMP #$2C      ; AUF KOMMA PRUEFEN
5122 BNE SPR1     ; NEIN, NAECHSTES Z.
5124 Z[128] LDA #0
5126 STA $46       ; 2. ZEICHEN NULL
5128 DEC $7A
5130 JMP [128]
5132 SPR1 STA $46  ; 2. ZEICHEN MERKEN
5134 [128] INC $7A   ; PROGRAMMZEIGER [170]1
5136 BNE LESS
5138 INC $7B
5140 LESS RTS
5142 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5200 ; ARRAY[171]KOPF SUCHEN
5202 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5204 ARY[165]D JSR VARNAM1
5206 JMP VCNT
5208 ARR JSR VARNAM2
5210 VCNT LDX $2F  ; ZEIGER ARRAYTABELLE
5212 LDA $30
5214 ADDR4 STX $5F ; ZEIGER MERKEN
5216 STA $60
5218 CMP $32
5220 LDY #$00
5222 LDA ($5F),Y   ; NAME ARRAYTABELLE
5224 INY
5226 CMP $45       ; VERGLEICH MIT NAME
5228 BNE ADDR2
5230 LDA $46
5232 CMP ($5F),Y   ; 2. BUCHSTABE
5234 BEQ ADDR3
5236 ADDR2 INY
5238 LDA ($5F),Y
5240 CLC
5242 ADC $5F
5244 TAX
5246 INY
5248 LDA ($5F),Y
5250 ADC $60
5252 ADDR3 BCC ADDR4
5254 ;
5256 ; ADRESSEN UND INDIZES ABLEGEN
5258 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5260 JSR ARY[161]   ; ZEIGER N. ELEMENT
5262 CLC
5264 ADC #4
5266 LDX $A5
5268 STA CALC,X   ; N.ARRAY ADRESSE LO
5270 INX
5272 LDA $59
5274 BCC FL1
5276 INC $59
5278 FL1 LDA $59
5280 STA CALC,X   ; N.ARRAY ADRESSE HI
5282 LDY #01
5284 LDA ($58),Y  ; ANZAHL DER SPALTEN
5286 INX
5288 STA CALC,X
5290 LDY #03
5292 LDA ($58),Y  ; ANZAHL DER ZEI[195]
5294 INX
5296 STA CALC,X
5298 INX
5300 STX $A5
5302 TXA
5304 CMP $FB
5306 BNE ARR
5308 RTS
5310 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5400 ;
5402 ; INK[143]ENTIERT ELEMENT-ADRESSEN
5404 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5406 ELADD CLC
5408 LDA CALC
5410 ADC #05
5412 STA CALC
5414 BCC FL2
5416 INC CALC[170]1
5418 FL2 CLC
5420 LDA CALC[170]4
5422 ADC #05
5424 STA CALC[170]4
5426 BCC FL3
5428 INC CALC[170]5
5430 FL3 CLC
5432 LDA CALC[170]8
5434 ADC #05
5436 STA CALC[170]8
5438 BCC FL4
5440 INC CALC[170]9
5442 FL4 RTS
5446 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
6000 ;BERECHNET OFFSET DES ELEMENTES MIT
6002 ;INDEX $C1,$C2  CALC[178]STARTADRESSE
6004 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
6006 OFFSET LDX CALC[170]2,Y
6008 DEX
6010 STX $FD
6012 LDX CALC[170]3,Y
6014 DEX
6016 STX $FE
6018 LDA #00
6020 STA $FB
6022 STA $A5         ; OFFSET[171]RESULTAT
6024 ADR4 LDA #00
6026 STA $FC
6028 ADR2 LDA $FC
6030 CMP $C1
6032 BNE ADR5
6034 LDA $FB
6036 CMP $C2
6038 BNE ADR5
6040 JMP FOUND
6042 ADR5 CLC
6044 LDA $A5
6046 ADC #5
6048 STA $A5
6050 LDA $FC
6052 CMP $FE
6054 BEQ ADR1
6056 INC $FC
6058 JMP ADR2
6060 ADR1 LDA $FB
6062 CMP $FD
6064 BEQ ADR3
6066 INC $FB
6068 JMP ADR4
6070 ADR3 LDA #$12 ; BAD SUBSCRIPT
6072 JMP $A43A     ; FEHLERAUSGABE
6074 FOUND CLC
6076 LDA CALC,Y
6078 ADC $A5
6080 LDX CALC[170]1,Y
6082 BCC ADR6
6084 INX
6086 ADR6 STX $C4
6088 LDY $C4
6089 TAX
6090 RTS
6092 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
6200 TITEL LDA #$93 ; [156] HOME
6202 JSR CHROUT
6204 JSR SCRTCH
6206 'CURS[176] 0,0
6208 'TEXT TEXT10
6210 'TEXT TEXT11
6212 'TEXT TEXT12
6218 'TEXT TEXT13
6220 'CURS[176] 5,1
6224 'TEXT TEXT14
6226 'CURS[176] 7,1
6228 'TEXT TEXT15
6230 'CURS[176] 9,1
6232 'TEXT TEXT16
6234 'CURS[176] 11,1
6236 'TEXT TEXT17
6238 'CURS[176] 13,1
6240 'TEXT TEXT18
6242 'CURS[176] 15,1
6244 'TEXT TEXT19
6246 'CURS[176] 17,1
6248 'TEXT TEXT20
6250 'CURS[176] 19,1
6252 'TEXT TEXT21
6254 'CURS[176] 21,17
6256 'TEXT TEXT22
6278 'CURS[176] 21,1
6280 JSR [135]Y
6282 RTS
6284 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
7000 TEXT1 .[198] "MATRIX IST NICHT UMKEHRBAR": .BYT 0
7010 TEXT10 .[198] "LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN": .BYT 0
7012 TEXT11 .[198] " MATRIX - EXPRESS, DR.-ING. UWE CHRIST  ": .BYT 0
7014 TEXT12 .[198] "LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN": .BYT 0
7016 TEXT13 .[198] "BASIC ERWEITERUNG FUER MATRIZENRECHNUNG": .BYT 0
7018 TEXT14 .[198] "SYNTAX DER NEUEN BEFEHLE:": .BYT 0
7020 TEXT15 .[198] "@EQU,X,Y        (Y)=(X)": .BYT 0
7022 TEXT16 .[198] "@ADD,X,Y,Z      (Z)=(X)+(Y)": .BYT 0
7024 TEXT17 .[198] "@SUB,X,Y,Z      (Z)=(X)-(Y)": .BYT 0
7026 TEXT18 .[198] "@SKP,X,K        (X)=K*(X)": .BYT 0
7028 TEXT19 .[198] "@MUL,X,Y,Z      (Z)=(X)*(Y)": .BYT 0
7030 TEXT20 .[198] "@DET,X,D         D =DET(X)": .BYT 0
7032 TEXT21 .[198] "@INV,X,Y,Z      (Z)=(X)^-1": .BYT 0
7034 TEXT22 .[198] "(Y)=ADJ(X)": .BYT 0